home *** CD-ROM | disk | FTP | other *** search
Wingz Script | 1989-06-07 | 1.4 KB | 43 lines | [WZSC/WNGZ] |
- WNGZWZSC01b1
- Demo03
- Rows&Cols
- SDOpen
- DoSound
- Segway
- the_computer
- define n
- call sd:SDOpen("Demo03",1)
- call sd:DoSound("Rows&Cols")
- wait for sd:Segway seconds
- hide fields
- column width .5 inch
- select range B3..C3
- column width 2.25 inch
- select range D3..F3
- column width .7 inch
- select range A4
- row height .5 inch
- select range A5..A13
- row height 15 points
- select range A14..A19
- row height 9 points
- unselect
- wait for sd:Segway seconds
- select range a1..h30
- column width 1 inch
- row height 12 points
- unselect
- show notes
- wait for (sd:Segway * 1.5) seconds
- hide notes
- for n = 1 to 50
- select range makecell(rand()*8,rand()*25)
- if sd:the_computer <> 2
- fill bg rgb(rand()*255,rand()*255,rand()*255)
- fill fg rgb(rand()*255,rand()*255,rand()*255)
- end if
- fill pattern rand()*38
- end for
- wait for sd:Segway seconds
- close now
-